perm filename TMP[E,ALS]4 blob sn#189270 filedate 1975-12-04 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ZLISTC:	0
C00003 ENDMK
CāŠ—;
ZLISTC:	0


;Find smallest number meaning longest time not referenced
	MOVE TT,ZSIZE-ZENT
	MOVEI C,77777
	CAMG C,ZDATA+ZENT-1(TT)
	JRST .+3
	MOVE T,TT
	MOVE C,ZDATA(TT)
	SUBI TT,ZENT
	JUMPGE TT,.-5
	OUTSTR [ASCIZ /Reassigning # /]
	MOVE TT,T
	IDIVI TT,ZENT
	TYPDEC TT
	TYPCHR " "


	AOS TT,ZLISTC		;Update reference order count
	MOVEM TT,T+ZENT-1(T)	;and store